perm filename F[3,PMP] blob sn#011765 filedate 1972-11-10 generic text, type T, neo UTF8
00100		DO 1 I=5,90,5
00200		A=I
00300		B=(A*3.1415926)/180.0
00400		C=SIN(B)
00500		D=C/COS(B)
00600		PRINT 101,I,B,C,D
00700	101	FORMAT(1H ,I3,3(3X,F8.5))
00800	1	CONTINUE
00900		A=ATAN(0.5)
01000		B=A*180.0
01100		B=B/3.1415926
01200		PRINT 102
01300		PRINT 103,A,B
01400	102	FORMAT (1H )
01500	103	FORMAT (1H ,2(3X,F12.9))
01600		END